assume cs:codesg

codesg segment

    mov ax,2000H
    mov ds,ax
    mov bx,1000H
    mov ax,[bx]
    inc bx
    inc bx
    mov [bx],ax
    inc bx
    inc bx
    mov [bx],ax
    inc bx
    mov [bx],al
    inc bx
    mov [bx],al

    int 21H

codesg ends

end